home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 17
/
CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso
/
CUCD
/
Magazine
/
WiredWorld
/
THOR_2.5
/
thor25_arexx.lha
/
Examples
/
FAreaList.br
< prev
next >
Wrap
Text File
|
1995-09-06
|
540b
|
37 lines
/* FAreaList.br
*
* Get file area list for a bbs.
*/
parse arg argument
if(argument = '') then
do
say '$VER: FAreaList.br V3.1 (10.08.94)'
say 'Template: BBSNAME/A'
exit
end
if ~show('p', 'BBSREAD') then do
address command
"run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
"WaitForPort BBSREAD"
end
address BBSREAD
GETFAREALIST stem FAREALIST argument
if(rc ~= 0) then
do
say BBSREAD.LASTERROR
exit
end
say 'Available file areas:'
do i=1 to FAREALIST.COUNT
say ' ' || FAREALIST.i
end
exit